home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 July / macformat-092.iso / Broderbund Demo / DemoData / Mathwork / MATHWORK.Dxr / 00961.ls < prev    next >
Encoding:
Text File  |  1997-08-22  |  351 b   |  17 lines
  1. on exitFrame
  2.   global gCorpDemo, gPickerPath, gDemoState
  3.   if the timer > (3 * 60 * 60) then
  4.     setupPuppets(1, 48, 0)
  5.     if not voidp(gCorpDemo) then
  6.       set gCorpDemo to "Picker DemoAll"
  7.       go("returnFade", gPickerPath)
  8.     else
  9.       resetDemo()
  10.       set gDemoState to 1
  11.       go("CReturn")
  12.     end if
  13.   else
  14.     go(the frame)
  15.   end if
  16. end
  17.